unit spr_Areas;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, shbl_Directory, PropFilerEh, XLSExportComp, PropStorageEh,
  FIBDatabase, pFIBDatabase, ExtCtrls, DB, FIBDataSet, pFIBDataSet,
  ActnList, Buttons, GridsEh, DBGridEh, StdCtrls, ComCtrls, ToolWin, Mask,
  DBCtrlsEh, DBGridEhGrouping;

type
  TsprAreas = class(TshblDirectory)
    dbeID: TDBEditEh;
    Label1: TLabel;
    dsReferID: TFIBIntegerField;
    dsReferAREA_NAME: TFIBStringField;
    dsReferREGION: TFIBStringField;
    dsReferCODE: TFIBStringField;
    dbeName: TDBEditEh;
    dbeRegion: TDBEditEh;
    dbeCode: TDBEditEh;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  sprAreas: TsprAreas;

implementation

uses shbl_GridWindow;

{$R *.dfm}

end.
